Sliding  a  will reproduce all of the worksheet values

Loco Motives

a = 2 (slider from 1 to 13, step 0.5)
r: (a * a)
R: (a + 1)^(2)
A = Point(yAxis)
c = Circle(A, R)
B = Intersect(c, xAxis, 2)
d = Circle(B, R)
f = OrthogonalLine(B, xAxis)
C = Intersect(d, f, 2)
e = Circle(C, R)
D = Intersect(e, f, 2)
g = OrthogonalLine(D, f)
E = Intersect(yAxis, g)
h = OrthogonalLine(C, f)
F = Intersect(e, h, 1)
k = Circle(F, R)
G = Intersect(k, h, 1)
p = Circle(G, R)
q = Circle(A, r)
H = Intersect(q, yAxis, 2)
i = OrthogonalLine(H, yAxis)
j = OrthogonalLine(G, h)
s = Circle(G, (2 * sqrt((r * R))))
I = Intersect(s, h, 1)
l = OrthogonalLine(I, h)
J = Intersect(i, l)
t = Circle(J, r)
K = Intersect(t, i, 1)
m = OrthogonalLine(K, i)
L = Intersect(m, xAxis)
M = Intersect(g, m)
q1, a_1, l_1, m_1, e_1 = Polygon(A, L, M, E)
c_1 = Circle(E, r)
N = Intersect(c_1, yAxis, 2)
n = OrthogonalLine(N, yAxis)
O = Intersect(f, n)
d_1 = Circle(O, R)
P, Q = Intersect(d_1, f)
f_1 = Circle(Q, R)
S = Intersect(f_1, f, 2)
b = OrthogonalLine(S, f)
T = Intersect(b, yAxis)
g_1 = Circle(Q, (2 * sqrt((r * R))))
h_1 = Circle(Q, (2 * sqrt((r * R))))
i_1 = OrthogonalLine(Q, f)
U = Intersect(h_1, i_1, 1)
j_1 = OrthogonalLine(U, i_1)
V = Intersect(n, j_1)
k_1 = Circle(V, r)
W = Intersect(k_1, j_1, 1)
p_1 = Circle(W, r)
q_1 = Circle(U, (2 * sqrt((r * R))))
Z = Intersect(q_1, i_1, 1)
r_1 = Circle(Z, R)
A_1, B_1 = Intersect(r_1, i_1)
n_1 = OrthogonalLine(A_1, i_1)
C_1 = Intersect(n, n_1)
s_1 = OrthogonalLine(S, f)
D_1 = Intersect(n_1, s_1)
t_1 = OrthogonalLine(B_1, n)
E_1 = Intersect(t_1, n)
F_1 = Intersect(t_1, b)
G_1 = Intersect(b, yAxis)
q2, n_2, b_1, f_2, g_2 = Polygon(N, E_1, F_1, G_1)
diff: m_1 - f_2
text1: "width difference = " + (LaTeX[a_1]) + " - " + (LaTeX[f_2]) + " = " + (LaTeX[diff]) + ""
H_1 = Center(f_1)
I_1 = Center(p_1)
J_1 = Center(p)
K_1 = Center(t)
L_1 = Intersect(p, a_1, 1)
M_1 = Intersect(t, a_1)
h_2 = Segment(H_1, O)
i_2 = Segment(I_1, V)
j_2 = Segment(J_1, L_1)
k_2 = Segment(K_1, M_1)